home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / PPCrunch.asc < prev    next >
Text File  |  1980-03-09  |  717b  |  29 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' command
  12. '  -Pp Crunch
  13. '  -Pp Write 
  14. '
  15. 'Compactage PowerPacker
  16. A$=Fsel$(Dir$,"FileName","Selectionné le fichier à compacter")
  17. Open In 1,A$ : L=Lof(1)
  18. '
  19. Print "Taille avant :";L
  20. '
  21. Reserve As Work 5,L
  22. Bload A$,5
  23. '
  24. A=Pp Crunch(Start(5),L,0,0)
  25. A$=Fsel$(Dir$,"FileName.pp","Entrez le non de sauvegarde")
  26. '
  27. Pp Write A$,Start(5) To A,0
  28. Print "Taille aprés :";A
  29.